home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / nan_ss.inc < prev    next >
Text File  |  1998-07-27  |  5KB  |  332 lines
  1. *---------------------------------------
  2. *
  3. *    ò\Ī
  4. *
  5. *    òKÄEïZüòÆ┤òKÄEïZ
  6. *
  7. *    by Shiroh Nakaya
  8. *
  9. *---------------------------------------
  10. nan_sa:
  11.     move.w    C_X(a1),d1
  12.     move.w    C_Y(a1),d2
  13.     subi.w    #8,d1
  14.     subi.w    #32,d2
  15.     tst.w    C_LR_F(a1)
  16.     bne    @f
  17.  
  18.     addi.w    #$003a,d7
  19.     move.w    d1,(a6)+
  20.     move.w    d2,(a6)+
  21.     move.w    d7,(a6)+
  22.     move.w    #$0003,(a6)+
  23.  
  24.     addi.w    #16,d2
  25.     addq.w    #1,d7
  26.     move.w    d1,(a6)+
  27.     move.w    d2,(a6)+
  28.     move.w    d7,(a6)+
  29.     move.w    #$0003,(a6)+
  30.  
  31.     addi.w    #16,d2
  32.     addq.w    #1,d7
  33.     move.w    d1,(a6)+
  34.     move.w    d2,(a6)+
  35.     move.w    d7,(a6)+
  36.     move.w    #$0003,(a6)+
  37.  
  38.     addi.w    #16,d2
  39.     addq.w    #1,d7
  40.     move.w    d1,(a6)+
  41.     move.w    d2,(a6)+
  42.     move.w    d7,(a6)+
  43.     move.w    #$0003,(a6)+
  44.  
  45.     rts
  46. @@:
  47.     addi.w    #$403a,d7
  48.     move.w    d1,(a6)+
  49.     move.w    d2,(a6)+
  50.     move.w    d7,(a6)+
  51.     move.w    #$0003,(a6)+
  52.  
  53.     addi.w    #16,d2
  54.     addq.w    #1,d7
  55.     move.w    d1,(a6)+
  56.     move.w    d2,(a6)+
  57.     move.w    d7,(a6)+
  58.     move.w    #$0003,(a6)+
  59.  
  60.     addi.w    #16,d2
  61.     addq.w    #1,d7
  62.     move.w    d1,(a6)+
  63.     move.w    d2,(a6)+
  64.     move.w    d7,(a6)+
  65.     move.w    #$0003,(a6)+
  66.  
  67.     addi.w    #16,d2
  68.     addq.w    #1,d7
  69.     move.w    d1,(a6)+
  70.     move.w    d2,(a6)+
  71.     move.w    d7,(a6)+
  72.     move.w    #$0003,(a6)+
  73.  
  74.     rts
  75. *---------------------------------------
  76. nan_ssa_s:
  77.     move.w    C_X(a1),d1
  78.     move.w    C_Y(a1),d2
  79.     subi.w    #16,d1
  80.     subi.w    #32,d2
  81.     tst.w    C_LR_F(a1)
  82.     bne    @f
  83.  
  84.     addi.w    #$003e,d7
  85.     move.w    d1,(a6)+
  86.     move.w    d2,(a6)+
  87.     move.w    d7,(a6)+
  88.     move.w    #$0003,(a6)+
  89.  
  90.     addi.w    #16,d1
  91.     addq.w    #1,d7
  92.     move.w    d1,(a6)+
  93.     move.w    d2,(a6)+
  94.     move.w    d7,(a6)+
  95.     move.w    #$0003,(a6)+
  96.  
  97.     subi.w    #16,d1
  98.     addi.w    #16,d2
  99.     addq.w    #1,d7
  100.     move.w    d1,(a6)+
  101.     move.w    d2,(a6)+
  102.     move.w    d7,(a6)+
  103.     move.w    #$0003,(a6)+
  104.  
  105.     addi.w    #16,d1
  106.     addq.w    #1,d7
  107.     move.w    d1,(a6)+
  108.     move.w    d2,(a6)+
  109.     move.w    d7,(a6)+
  110.     move.w    #$0003,(a6)+
  111.  
  112.     subi.w    #16,d1
  113.     addi.w    #16,d2
  114.     addq.w    #1,d7
  115.     move.w    d1,(a6)+
  116.     move.w    d2,(a6)+
  117.     move.w    d7,(a6)+
  118.     move.w    #$0003,(a6)+
  119.  
  120.     addi.w    #16,d1
  121.     addq.w    #1,d7
  122.     move.w    d1,(a6)+
  123.     move.w    d2,(a6)+
  124.     move.w    d7,(a6)+
  125.     move.w    #$0003,(a6)+
  126.  
  127.     subi.w    #16,d1
  128.     addi.w    #16,d2
  129.     addq.w    #1,d7
  130.     move.w    d1,(a6)+
  131.     move.w    d2,(a6)+
  132.     move.w    d7,(a6)+
  133.     move.w    #$0003,(a6)+
  134.  
  135.     addi.w    #16,d1
  136.     addq.w    #1,d7
  137.     move.w    d1,(a6)+
  138.     move.w    d2,(a6)+
  139.     move.w    d7,(a6)+
  140.     move.w    #$0003,(a6)+
  141.  
  142.     rts
  143. @@:
  144.     addi.w    #$403f,d7
  145.     move.w    d1,(a6)+
  146.     move.w    d2,(a6)+
  147.     move.w    d7,(a6)+
  148.     move.w    #$0003,(a6)+
  149.  
  150.     addi.w    #16,d1
  151.     subq.w    #1,d7
  152.     move.w    d1,(a6)+
  153.     move.w    d2,(a6)+
  154.     move.w    d7,(a6)+
  155.     move.w    #$0003,(a6)+
  156.  
  157.     subi.w    #16,d1
  158.     addi.w    #16,d2
  159.     addq.w    #3,d7
  160.     move.w    d1,(a6)+
  161.     move.w    d2,(a6)+
  162.     move.w    d7,(a6)+
  163.     move.w    #$0003,(a6)+
  164.  
  165.     addi.w    #16,d1
  166.     subq.w    #1,d7
  167.     move.w    d1,(a6)+
  168.     move.w    d2,(a6)+
  169.     move.w    d7,(a6)+
  170.     move.w    #$0003,(a6)+
  171.  
  172.     subi.w    #16,d1
  173.     addi.w    #16,d2
  174.     addq.w    #3,d7
  175.     move.w    d1,(a6)+
  176.     move.w    d2,(a6)+
  177.     move.w    d7,(a6)+
  178.     move.w    #$0003,(a6)+
  179.  
  180.     addi.w    #16,d1
  181.     subq.w    #1,d7
  182.     move.w    d1,(a6)+
  183.     move.w    d2,(a6)+
  184.     move.w    d7,(a6)+
  185.     move.w    #$0003,(a6)+
  186.  
  187.     subi.w    #16,d1
  188.     addi.w    #16,d2
  189.     addq.w    #3,d7
  190.     move.w    d1,(a6)+
  191.     move.w    d2,(a6)+
  192.     move.w    d7,(a6)+
  193.     move.w    #$0003,(a6)+
  194.  
  195.     addi.w    #16,d1
  196.     subq.w    #1,d7
  197.     move.w    d1,(a6)+
  198.     move.w    d2,(a6)+
  199.     move.w    d7,(a6)+
  200.     move.w    #$0003,(a6)+
  201.  
  202.     rts
  203. *---------------------------------------
  204. nan_ssa_t:
  205.     move.w    C_X(a1),d1
  206.     move.w    C_Y(a1),d2
  207.     subi.w    #16,d1
  208.     subi.w    #32,d2
  209.     tst.w    C_LR_F(a1)
  210.     bne    @f
  211.  
  212.     addi.w    #$0046,d7
  213.     move.w    d1,(a6)+
  214.     move.w    d2,(a6)+
  215.     move.w    d7,(a6)+
  216.     move.w    #$0003,(a6)+
  217.  
  218.     addi.w    #16,d1
  219.     addq.w    #1,d7
  220.     move.w    d1,(a6)+
  221.     move.w    d2,(a6)+
  222.     move.w    d7,(a6)+
  223.     move.w    #$0003,(a6)+
  224.  
  225.     subi.w    #16,d1
  226.     addi.w    #16,d2
  227.     addq.w    #1,d7
  228.     move.w    d1,(a6)+
  229.     move.w    d2,(a6)+
  230.     move.w    d7,(a6)+
  231.     move.w    #$0003,(a6)+
  232.  
  233.     addi.w    #16,d1
  234.     addq.w    #1,d7
  235.     move.w    d1,(a6)+
  236.     move.w    d2,(a6)+
  237.     move.w    d7,(a6)+
  238.     move.w    #$0003,(a6)+
  239.  
  240.     subi.w    #16,d1
  241.     addi.w    #16,d2
  242.     addq.w    #1,d7
  243.     move.w    d1,(a6)+
  244.     move.w    d2,(a6)+
  245.     move.w    d7,(a6)+
  246.     move.w    #$0003,(a6)+
  247.  
  248.     addi.w    #16,d1
  249.     addq.w    #1,d7
  250.     move.w    d1,(a6)+
  251.     move.w    d2,(a6)+
  252.     move.w    d7,(a6)+
  253.     move.w    #$0003,(a6)+
  254.  
  255.     subi.w    #16,d1
  256.     addi.w    #16,d2
  257.     addq.w    #1,d7
  258.     move.w    d1,(a6)+
  259.     move.w    d2,(a6)+
  260.     move.w    d7,(a6)+
  261.     move.w    #$0003,(a6)+
  262.  
  263.     addi.w    #16,d1
  264.     addq.w    #1,d7
  265.     move.w    d1,(a6)+
  266.     move.w    d2,(a6)+
  267.     move.w    d7,(a6)+
  268.     move.w    #$0003,(a6)+
  269.  
  270.     rts
  271. @@:
  272.     addi.w    #$4047,d7
  273.     move.w    d1,(a6)+
  274.     move.w    d2,(a6)+
  275.     move.w    d7,(a6)+
  276.     move.w    #$0003,(a6)+
  277.  
  278.     addi.w    #16,d1
  279.     subq.w    #1,d7
  280.     move.w    d1,(a6)+
  281.     move.w    d2,(a6)+
  282.     move.w    d7,(a6)+
  283.     move.w    #$0003,(a6)+
  284.  
  285.     subi.w    #16,d1
  286.     addi.w    #16,d2
  287.     addq.w    #3,d7
  288.     move.w    d1,(a6)+
  289.     move.w    d2,(a6)+
  290.     move.w    d7,(a6)+
  291.     move.w    #$0003,(a6)+
  292.  
  293.     addi.w    #16,d1
  294.     subq.w    #1,d7
  295.     move.w    d1,(a6)+
  296.     move.w    d2,(a6)+
  297.     move.w    d7,(a6)+
  298.     move.w    #$0003,(a6)+
  299.  
  300.     subi.w    #16,d1
  301.     addi.w    #16,d2
  302.     addq.w    #3,d7
  303.     move.w    d1,(a6)+
  304.     move.w    d2,(a6)+
  305.     move.w    d7,(a6)+
  306.     move.w    #$0003,(a6)+
  307.  
  308.     addi.w    #16,d1
  309.     subq.w    #1,d7
  310.     move.w    d1,(a6)+
  311.     move.w    d2,(a6)+
  312.     move.w    d7,(a6)+
  313.     move.w    #$0003,(a6)+
  314.  
  315.     subi.w    #16,d1
  316.     addi.w    #16,d2
  317.     addq.w    #3,d7
  318.     move.w    d1,(a6)+
  319.     move.w    d2,(a6)+
  320.     move.w    d7,(a6)+
  321.     move.w    #$0003,(a6)+
  322.  
  323.     addi.w    #16,d1
  324.     subq.w    #1,d7
  325.     move.w    d1,(a6)+
  326.     move.w    d2,(a6)+
  327.     move.w    d7,(a6)+
  328.     move.w    #$0003,(a6)+
  329.  
  330.     rts
  331. *---------------------------------------
  332.